Hệ thống quản lý hàng tồn kho và bán trước trong c#

29.540 lượt xem;

FrmPOSVIEW.vb
FormX /
project /

1 Public Class FrmPOSVIEW
2
3     Private Sub FrmPOSVIEW_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4         Dim i As Integer
5         lstitems.Items.Clear()
6         'sqlSTR = "SELECT * FROM TBL_Sales_Sold_Detail WHERE Sales_ID =" & txtreceiptid.Text
7         sqlSTR = "SELECT * FROM TBL_Sales_Receipt " & _
8                  "INNER JOIN TBL_Sales_Sold_Detail ON TBL_Sales_Receipt.Sales_ID = TBL_Sales_Sold_Detail.Sales_ID " & _
9                  "WHERE Receipt_ID =" & txtreceiptid.Text
10         ExecuteSQLQuery(sqlSTR)
11         If sqlDT.Rows.Count > 0 Then
12             For i = 0 To sqlDT.Rows.Count - 1
13                 lstitems.Items.Add(sqlDT.Rows(i)("Item_ID"))
14                 lstitems.Items(i).SubItems.Add(sqlDT.Rows(i)("Item_QTY"))
15                 lstitems.Items(i).SubItems.Add(R_Change(sqlDT.Rows(i)("Item_Name")))
16                 lstitems.Items(i).SubItems.Add(sqlDT.Rows(i)("Item_Price"))
17                 lstitems.Items(i).SubItems.Add(sqlDT.Rows(i)("Sales_Detail_ID"))
18             Next
19         End If
20     End Sub
21
22     Private Sub cmdclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclose.Click
23         Me.Close()
24     End Sub
25
26     Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
27         If lstitems.Items.Count > 0 Then
28             lstitems.Focus()
29             FrmPOSEDIT.Label4.Text = lstitems.FocusedItem.Text
30             FrmPOSEDIT.txtid.Text = lstitems.FocusedItem.Text
31             FrmPOSEDIT.txtname.Text = lstitems.FocusedItem.SubItems(2).Text
32             FrmPOSEDIT.txtprice.Text = lstitems.FocusedItem.SubItems(3).Text
33             FrmPOSEDIT.txtqty.Text = lstitems.FocusedItem.SubItems(1).Text
34             FrmPOSEDIT.Label6.Text = lstitems.FocusedItem.SubItems(4).Text
35             FrmPOSEDIT.ShowDialog()
36         End If
37     End Sub
38
39     Private Sub CmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPrint.Click
40         Dim Report As New FrmREPORTS
41         If txtreceiptid.Text <> 0 Or txtreceiptid.Text <> "" Then
42             Rpt_SqlStr = "SELECT * FROM TBL_Sales_Receipt " & _
43                          "INNER JOIN TBL_Sales_Sold_Detail ON TBL_Sales_Receipt.Sales_ID = TBL_Sales_Sold_Detail.Sales_ID " & _
44                          "WHERE Receipt_ID =" & txtreceiptid.Text
45             'Rpt_SqlStr = "SELECT * FROM TBL_Sales_Sold_Detail WHERE Sales_ID =" & txtreceiptid.Text
46             'MsgBox(Rpt_SqlStr)
47             globalFRM = "frmPOSPAYMENT"
48             'FrmREPORTS.Show()
49             Report.Show()
50         End If
51     End Sub
52
53     Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click
54         'FrmPOSADD.ShowDialog()
55         'FrmPOSSTOCKSLIST.ShowDialog()
56         FrmPOS_CHOICES.ShowDialog()
57     End Sub
58 End Class